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:05:15  VAX=11 Bliss-32 v4.0-74 p 1 
90:08:88 | Yo tNneR SResiacint O35. we 


; 1 001 © MODULE LNK_INIT (IDENT='V04-009' : 
a ¢ ADDRESSING_MODE (EX TERNAL=GENERAL , : 
; 0 NONEXTERNAL=LONG_RELATIVE) ; 
3 4 004 ds § 
: 5 0005 3 
3 § B06 1 BEGIN : 
: 007 1! 3 
: 8 008 1! | 3 
; 1% i484 } _S~papeinainnngs catamaran ‘ 
3 . * oO 
.- 0011 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® ; 
; i 901¢ 1 is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ‘ : 
; \3 9013 is ALL RIGKTS RESERVED. e : 
D4 ° ® . 
38 0015 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * F 
: 16 0016 1 i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
; 0017 1 '* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
> 18 0018 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
: 19 0019 1 '* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
; 9 99 9 is TRANSFERRED. e : 
° . ® Py 
; ¢ 00 : 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ’ 
; 0023 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMLNT * : 
; $ 99 4 is CORPORATION. * ; 
° M * ° 
: 36 00 6 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
; ? 0027 1 i* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
; @ 0028 1 !* 7 3 
; 29 0029 1 is . ; 
3 Bea9 ;  hatramatadmaaaaemran ac eiaeaaaaemataaarar einai cinta demnaienineia heen aetna : 
; 32 003¢ 1! ; 
os 0033 1! : 
3 34 0034 1! 3 
: 35 7 § 3 
we * 1 !4¢ 3 
: 37 1! 3 
: $ ! : MODULE: LNK_INIT : 
: 40 FACILITY: LINKER ; 
; 4@ i ABSTRACT: INITIALIZATION ROUTINE ; 
° ) : e 
; 66 1 ' HISTORY: F 
; $$ 1! ; 
; 46 VERSION: X01.00 : 
i 48 1 AUTHOR: T.J. PORTER 03-JAN-77 | : 
; 30 ; MODIFIED BY: ; 
: 52 1: v03-001 BLS0007 Benn Schreiber, 3-Jun-1980 ; 
; 7 ! Convert to MDL datqa structures. : 
| 
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| 
FUNCTIONAL DESCRIPTION: 
ROUTINE WHICH INITIALI 
! 
1 
1 


ZES THE LINKER. IT TAKES NO EXPLICIT 
INPUT. THE FOLLOWING INITIALIZATION IS DONE, IN ORDER: 
1. HASH TABLE ALLOCATED FOR THE SYMBOL TABLE 
2. DEFAULT VALUES ESTABLISHED FOR STACK, BASE ADDRESS 
AND LINK CONTROL MASK. 


LIBRARY 
REQUIRE 
LIBRARY 


*STARLETL32'; 
*PREFIX'; 
"DATBAS'; 


EXTERNAL ROUTINE 
LNKSALLOBLK : NOVALUE; ! ALLOCATE DYNAMIC MEMORY 


EXTERNAL LITERAL 
DEF$C_STACK : SHORT, ' DEFAULT STACK SIZE 
DEF SC"LNKCTL; i DEFAULT CONTROL MASK 
EXTERNAL 

LNKSGL_FVMLST : REF BLOCK BYTE, ' 
LNKSGL~CTLMSK : BLOCKL,BYTE), 
LNKSGW-STACK : WORD, 
SYMSGL—HASHTBL; 
GLOBAL ROUTINE LNKSINIT : NOVALUE = 
BEGIN 


LOCAL SYMENTALLO; 


LNKSALLOBLK (SYMS$C_TBLS1Z7*4,SYM$GL_HASHTBL); 


—_ MEMORY LIST 


ALLOCATED SIZE FOR SYMBOL TABLE ENTRIES 


ALLOCATE A_HASH TABLE 
CLEAR THE TABLE 


POPIPOPOPOPIPIPIPONONY 2 Ss 
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CHSFILL(O,SYMSC_TBLSIZ*4,. 
LNK$GW_STACK = DEFSC_STACK 
LNKSGL-CTLMSK = DEF$C_LNKCTL; 
LNKSALCOBLK(FVMSC_SIZE,LNKSGL_FVMLST); 
V V XTFVM) ="0: 


SYMSGL_RASHTBL); 
: SET DEFAULT STACK SIZE 
DEFAULT CONTROL FLAGS 
ALLOCATE FIRST FREE MEMORY DESCRIPTOR 


S NO 
ASSUME BASE OF PROGRAM REGION 
AND ALL OF REGION 


=PINIPIMIPIPOPIMIPINPIPUPYR) 0 3 et tt tt 
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TLE LNK_INIT 

ENT \v0%-000\ 
TRN 

T 


6 
E 
6 
Q 
0454 = 8F 00 E 
0 
0 


oo OMOeN WM 


000000006 


08 A0 40000000 


; Routine Size: 83 bytes, Routine Base: 


: 104 0217 0 END ELUDOM 


PSECT SUMMARY 
Name Bytes 
SCODES 


83 NOVEC,NOWR 


Library Statistics 


File Total 
5 three? Higted we gi ete 9776 
~$255$DUA28: CL INKER.OBJ JDATBAS.L32;1 538 


COMMAND QUALIFIERS 
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DAXKAOOMMBDODAOAOWMGDOO 
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SOOQooooooooooooooooo 
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ee eR in aD 


MP COVYVINVIOMWOD & MONO 


SCODES + 0000 


Attributes 
EXE,NOSHR, 


T, RD, 


Syakols oceoo<-- 
Loaded Percent 


6 Q 
> 0 


1-32-1984 00:05:15 
12-808=138e 99:23:33 


AX-11 Ol fegnse V4.0=74 


LINKER. SRCJLNKINI .B32; 
«PSECT $CODE$,NOWRT,2 
.ENTRY LNKSINIT, Save R2,R3,R4,R5,R6,R7,R8 
MOVAB SYMSGL_HASHTBL, RS 
MOVAB LNKS$GL~FVMLST, R7 
MOVAB LNKS$ALCOBLK, R6 
PUSHL 
MOVZWL SP) 


#1108, =(SP 
CALLS #2, LNKSALLOBLK 


MOVL SYMSGL_HASHTBL, RO 
MOVCS #0, (SP), #0, #1108, (RO) 
MOVZBW S*DEFSC_STACK, LNKSGW_STACK 
MOVL WDEFSC_CNKCTL, LNKSGL-CTLMSK 
PUSHL R7 
PUSHL #12 
CALLS #2, LNKSALLOBLK 
MOVL LNKSGL_FVMLST, RO 
CLRQ (R 
MOVL #1073741824, 8(RO) 
RET 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 
581 60:01 -9 
28 00:00. 
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BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:LNKINI/OBJ=OBJ$:LNKINI MSRC$:LNKINI/UPDATE=(ENHS:LNKINI) 
83 fade + 0 data bytes 
0:03.8 


Lexemes/CPU-Rin: 
tion Complete 
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